--- Support for identifiers starting with an underscore
module tests.hcm.IdentifiersImport where

import tests.hcm.Identifiers (_f, final, _final, ®, a'a', a''a'')

main :: IO ()
main = do
  putStrLn final
  putStrLn _final
  putStrLn $ _f True
  putStrLn $ 1 ® 2
  putStrLn $ (a'a' . a''a'') "A'p'o's't'r'o'p'h'e's"
